*----------------------------------------------------------------------*
* 程序的事务代码: ZFIU027
* 程序名称:  进项相关发票常量配置
* 作者       :  王鹏
* 时间        : 20241220
* 模块      : FI
* 负责人 :
* 描述 :
*
*
*
* 特殊特性:
*
*
*----------------------------------------------------------------------*
* 修改记录:
*作者      时间      描述
*-----------  --------  -----------------------------------------------*
*
*----------------------------------------------------------------------*
REPORT ZFIU027.

DATA SEL_LIST TYPE STANDARD TABLE OF VIMSELLIST WITH HEADER LINE.

PERFORM BUILD_SELECTION_LIST
        TABLES SEL_LIST
        USING: 'ZPDCD' 'EQ' '901' SPACE.

PERFORM MAINTAIN_RESTRICTED_VIEW TABLES SEL_LIST
                                 USING 'S'
                                       '/PTGWFI/Z_CONST'.
*---------------------------------------------------------------------*
*       FORM maintain_restricted_view                                 *
*---------------------------------------------------------------------*
FORM MAINTAIN_RESTRICTED_VIEW TABLES   P_SEL_LIST STRUCTURE VIMSELLIST
                              USING    P_ACTION
                                       P_VIEWNAME.
  CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
    EXPORTING
      VIEW_NAME   = P_VIEWNAME
      ACTION      = P_ACTION
    TABLES
      DBA_SELLIST = P_SEL_LIST.
ENDFORM.                    " maintain_restricted_view
*---------------------------------------------------------------------*
*       FORM build_selection_list                                     *
*---------------------------------------------------------------------*
FORM BUILD_SELECTION_LIST TABLES   P_SEL_LIST STRUCTURE VIMSELLIST
                          USING    P_VIEWFIELD
                                   P_OPERATOR
                                   P_VALUE
                                   P_AND_OR.
  P_SEL_LIST-VIEWFIELD = P_VIEWFIELD.
  P_SEL_LIST-VALUE     = P_VALUE.
  P_SEL_LIST-OPERATOR  = P_OPERATOR.
  P_SEL_LIST-AND_OR    = P_AND_OR.
  APPEND P_SEL_LIST.
  CLEAR P_SEL_LIST.
ENDFORM.                    " build_selection_list
